#!/bin/bash
#
# A partir de la zona inversa... obtiene la direccion de red...
#
if [ "" = "$1" ]
then
   echo "ERROR: No has pasado el nombre de la zona inversa"
   exit 2
fi

echo "$1" | perl -ne 'print "$3.$2.$1" if($_=~m/(\d+)\.(\d+)\.(\d+)\.in-addr/)'
